All Scenarios

## 
##       a_reasons   b_dumbfounded c_nothing_wrong 
##             100              19              21

Politics and Religion

Political Ideology

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71852         0.13333         0.14815 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.08E-08 
## gradient close to zero 
## 
## Coefficients :
##                                     Estimate Std. Error z-value  Pr(>|z|)    
## (Intercept):b_dumbfounded          -1.863662   0.533065 -3.4961 0.0004721 ***
## (Intercept):c_nothing_wrong        -2.431871   0.577769 -4.2091 2.564e-05 ***
## Political_Ideology:b_dumbfounded    0.052674   0.134632  0.3912 0.6956171    
## Political_Ideology:c_nothing_wrong  0.228802   0.130556  1.7525 0.0796838 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -104.94
## McFadden R^2:  0.014906 
## Likelihood ratio test : chisq = 3.1758 (p.value = 0.20436)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (PI)

RCOPE Positive

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71642         0.13433         0.14925 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.00113 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value  Pr(>|z|)    
## (Intercept):b_dumbfounded   -1.759118   0.599914 -2.9323  0.003365 ** 
## (Intercept):c_nothing_wrong -2.230652   0.562117 -3.9683 7.238e-05 ***
## RE_P:b_dumbfounded           0.056119   0.355043  0.1581  0.874409    
## RE_P:c_nothing_wrong         0.408376   0.297709  1.3717  0.170148    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -105.3
## McFadden R^2:  0.008408 
## Likelihood ratio test : chisq = 1.7857 (p.value = 0.40948)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (RCOPE Positive)

RCOPE Negative

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71429         0.13534         0.15038 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.24E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value  Pr(>|z|)    
## (Intercept):b_dumbfounded   -1.29245    0.85503 -1.5116 0.1306388    
## (Intercept):c_nothing_wrong -2.34749    0.66957 -3.5060 0.0004549 ***
## RE_N:b_dumbfounded          -0.29780    0.66375 -0.4487 0.6536740    
## RE_N:c_nothing_wrong         0.58794    0.44943  1.3082 0.1908093    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -104.82
## McFadden R^2:  0.0097795 
## Likelihood ratio test : chisq = 2.0705 (p.value = 0.35514)
## $hosmer_and_lemeshow
## [1] -4.440892e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -4.440892e-16
## 
## $nagelkerke
## [1] -6.167755e-16

Plot (RCOPE Negative)

Thinking

Need For Cognition

## 
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71642         0.13433         0.14925 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.77E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value  Pr(>|z|)    
## (Intercept):b_dumbfounded   -1.66135    0.25739 -6.4547 1.084e-10 ***
## (Intercept):c_nothing_wrong -1.65473    0.26623 -6.2154 5.119e-10 ***
## NFC:b_dumbfounded           -0.12886    0.19393 -0.6645    0.5064    
## NFC:c_nothing_wrong          0.21701    0.19132  1.1343    0.2567    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -105.16
## McFadden R^2:  0.0096919 
## Likelihood ratio test : chisq = 2.0584 (p.value = 0.35729)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (NFC)

AOT

## 
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72093         0.13178         0.14729 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.33E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -3.51045    1.47277 -2.3836  0.01715 *
## (Intercept):c_nothing_wrong -1.32065    1.35920 -0.9716  0.33123  
## AOT:b_dumbfounded            0.81830    0.64107  1.2764  0.20180  
## AOT:c_nothing_wrong         -0.12533    0.62772 -0.1997  0.84175  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -100.37
## McFadden R^2:  0.0089168 
## Likelihood ratio test : chisq = 1.8061 (p.value = 0.40533)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (AOT)

Dark Triad

Machiavellianism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71324         0.13235         0.15441 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.000887 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)   
## (Intercept):b_dumbfounded   -1.744040   0.558052 -3.1252 0.001777 **
## (Intercept):c_nothing_wrong -1.485251   0.520999 -2.8508 0.004361 **
## DT_M:b_dumbfounded           0.018758   0.154845  0.1211 0.903579   
## DT_M:c_nothing_wrong        -0.014315   0.147827 -0.0968 0.922858   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -108.4
## McFadden R^2:  0.00013247 
## Likelihood ratio test : chisq = 0.028723 (p.value = 0.98574)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Machiavellianism)

Narcissism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71212         0.12879         0.15909 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.02E-08 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -1.483077   0.601832 -2.4643  0.01373 *
## (Intercept):c_nothing_wrong -0.949243   0.537191 -1.7670  0.07722 .
## DT_N:b_dumbfounded          -0.054862   0.133176 -0.4120  0.68038  
## DT_N:c_nothing_wrong        -0.138199   0.125927 -1.0975  0.27244  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -104.71
## McFadden R^2:  0.0061715 
## Likelihood ratio test : chisq = 1.3005 (p.value = 0.52193)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Narcissism)

Psychopathy

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71324         0.13235         0.15441 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.0011 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value  Pr(>|z|)    
## (Intercept):b_dumbfounded   -1.710128   0.456978 -3.7423 0.0001824 ***
## (Intercept):c_nothing_wrong -1.838927   0.421539 -4.3624 1.286e-05 ***
## DT_P:b_dumbfounded           0.011052   0.161391  0.0685 0.9454045    
## DT_P:c_nothing_wrong         0.123840   0.132893  0.9319 0.3514008    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -108
## McFadden R^2:  0.0038199 
## Likelihood ratio test : chisq = 0.82825 (p.value = 0.66092)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Psychopathy)

Big Five

Extraversion

## 
## Call:
## mlogit(formula = InCS ~ 1 | Extraversion, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71533         0.13139         0.15328 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.00128 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded    -2.13460    1.42921 -1.4936  0.13529  
## (Intercept):c_nothing_wrong  -3.15734    1.33335 -2.3680  0.01789 *
## Extraversion:b_dumbfounded    0.15343    0.48783  0.3145  0.75313  
## Extraversion:c_nothing_wrong  0.55279    0.44105  1.2533  0.21008  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -107.97
## McFadden R^2:  0.0071907 
## Likelihood ratio test : chisq = 1.564 (p.value = 0.4575)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Extraversion)

Openness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71324         0.13235         0.15441 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.000788 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.98184    1.26600 -1.5654   0.1175
## (Intercept):c_nothing_wrong -1.83928    1.18738 -1.5490   0.1214
## Openness:b_dumbfounded       0.11267    0.46746  0.2410   0.8095
## Openness:c_nothing_wrong     0.11704    0.43837  0.2670   0.7895
## 
## Log-Likelihood: -108.36
## McFadden R^2:  0.00050872 
## Likelihood ratio test : chisq = 0.1103 (p.value = 0.94634)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Openness)

Agreeableness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71533         0.13139         0.15328 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.91E-08 
## gradient close to zero 
## 
## Coefficients :
##                               Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded     -3.24449    1.53774 -2.1099  0.03487 *
## (Intercept):c_nothing_wrong   -1.84143    1.42851 -1.2891  0.19738  
## Agreeableness:b_dumbfounded    0.58239    0.56116  1.0378  0.29935  
## Agreeableness:c_nothing_wrong  0.11517    0.53727  0.2144  0.83027  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -108.21
## McFadden R^2:  0.0049285 
## Likelihood ratio test : chisq = 1.0719 (p.value = 0.5851)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Agreeableness)

Conscientiousness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71533         0.13139         0.15328 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.000885 
## successive function values within tolerance limits 
## 
## Coefficients :
##                                   Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded         -2.42003    1.32820 -1.8220  0.06845 .
## (Intercept):c_nothing_wrong       -1.93046    1.23786 -1.5595  0.11887  
## Conscientiousness:b_dumbfounded    0.27593    0.49090  0.5621  0.57405  
## Conscientiousness:c_nothing_wrong  0.14933    0.46261  0.3228  0.74684  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -108.56
## McFadden R^2:  0.0016945 
## Likelihood ratio test : chisq = 0.36854 (p.value = 0.83171)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Conscientiousness)

Neuroticism

## 
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71533         0.13139         0.15328 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 4.77E-08 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -1.628041   1.076791 -1.5119  0.13055  
## (Intercept):c_nothing_wrong -2.710432   1.081689 -2.5057  0.01222 *
## Neuroticism:b_dumbfounded   -0.024235   0.381342 -0.0636  0.94933  
## Neuroticism:c_nothing_wrong  0.411329   0.363111  1.1328  0.25730  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -108.06
## McFadden R^2:  0.0063066 
## Likelihood ratio test : chisq = 1.3717 (p.value = 0.50367)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Neuroticism)

Moral Foundations

Harm/Care

## 
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72519         0.13740         0.13740 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.21E-08 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -2.53479    1.70911 -1.4831   0.1380
## (Intercept):c_nothing_wrong -0.80160    1.58048 -0.5072   0.6120
## harm_care:b_dumbfounded      0.25421    0.48947  0.5194   0.6035
## harm_care:c_nothing_wrong   -0.25703    0.46862 -0.5485   0.5834
## 
## Log-Likelihood: -101.64
## McFadden R^2:  0.0033341 
## Likelihood ratio test : chisq = 0.68002 (p.value = 0.71176)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Harm/Care)

Fairness

## 
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72727         0.13636         0.13636 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.00108 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.559513   1.819408 -0.8572   0.3914
## (Intercept):c_nothing_wrong -0.179640   1.708341 -0.1052   0.9163
## fairness:b_dumbfounded      -0.028646   0.451175 -0.0635   0.9494
## fairness:c_nothing_wrong    -0.379612   0.433756 -0.8752   0.3815
## 
## Log-Likelihood: -101.92
## McFadden R^2:  0.0037117 
## Likelihood ratio test : chisq = 0.75941 (p.value = 0.68406)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Fairness)

Loyalty

## 
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72308         0.13846         0.13846 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.000412 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -0.75164    0.97994 -0.7670   0.4431
## (Intercept):c_nothing_wrong -0.18595    0.95580 -0.1946   0.8457
## loyalty:b_dumbfounded       -0.35145    0.37674 -0.9329   0.3509
## loyalty:c_nothing_wrong     -0.58462    0.38014 -1.5379   0.1241
## 
## Log-Likelihood: -100.21
## McFadden R^2:  0.014255 
## Likelihood ratio test : chisq = 2.8983 (p.value = 0.23477)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Loyalty)

Authority

## 
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72727         0.13636         0.13636 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.00143 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -1.542164   0.870151 -1.7723  0.07635 .
## (Intercept):c_nothing_wrong -0.783427   0.800300 -0.9789  0.32762  
## authority:b_dumbfounded     -0.048778   0.308996 -0.1579  0.87457  
## authority:c_nothing_wrong   -0.342827   0.300994 -1.1390  0.25471  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -101.65
## McFadden R^2:  0.0063031 
## Likelihood ratio test : chisq = 1.2896 (p.value = 0.52477)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Authority)

Purity

## 
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72308         0.13846         0.13846 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.00155 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -1.877179   0.786653 -2.3863  0.01702 *
## (Intercept):c_nothing_wrong -1.213684   0.745502 -1.6280  0.10352  
## purity:b_dumbfounded         0.090937   0.298649  0.3045  0.76075  
## purity:c_nothing_wrong      -0.185769   0.301735 -0.6157  0.53811  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -101.38
## McFadden R^2:  0.0026956 
## Likelihood ratio test : chisq = 0.54806 (p.value = 0.76031)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Purity)

All Variables

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P + 
##     RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion + 
##     Openness + Agreeableness + Conscientiousness + harm_care + 
##     +fairness + loyalty + authority + purity + AOT, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.70833         0.14167         0.15000 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.76E-07 
## gradient close to zero 
## 
## Coefficients :
##                                       Estimate  Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded          -11.2714318   5.4578720 -2.0652  0.03891 *
## (Intercept):c_nothing_wrong         -7.4509722   5.1226826 -1.4545  0.14581  
## Political_Ideology:b_dumbfounded     0.1281426   0.2030566  0.6311  0.52800  
## Political_Ideology:c_nothing_wrong   0.2814945   0.2021741  1.3923  0.16382  
## NFC:b_dumbfounded                    0.0047443   0.2786676  0.0170  0.98642  
## NFC:c_nothing_wrong                  0.3756614   0.3202854  1.1729  0.24084  
## RE_P:b_dumbfounded                   0.0528976   0.5228501  0.1012  0.91941  
## RE_P:c_nothing_wrong                 0.5373322   0.4865721  1.1043  0.26945  
## RE_N:b_dumbfounded                  -0.7442717   0.9701924 -0.7671  0.44300  
## RE_N:c_nothing_wrong                 0.5045298   0.7518488  0.6711  0.50219  
## DT_M:b_dumbfounded                  -0.1671270   0.2438095 -0.6855  0.49304  
## DT_M:c_nothing_wrong                 0.1332741   0.2637434  0.5053  0.61334  
## DT_P:b_dumbfounded                   0.0783709   0.2300611  0.3407  0.73337  
## DT_P:c_nothing_wrong                 0.2324055   0.2209965  1.0516  0.29297  
## DT_N:b_dumbfounded                   0.0638181   0.1746913  0.3653  0.71487  
## DT_N:c_nothing_wrong                -0.2550103   0.2173224 -1.1734  0.24063  
## Neuroticism:b_dumbfounded            0.2129247   0.4660972  0.4568  0.64780  
## Neuroticism:c_nothing_wrong          0.5685684   0.4581309  1.2411  0.21458  
## Extraversion:b_dumbfounded           0.0908539   0.6483224  0.1401  0.88855  
## Extraversion:c_nothing_wrong         0.4881453   0.6705774  0.7279  0.46665  
## Openness:b_dumbfounded               0.4074303   0.7433885  0.5481  0.58364  
## Openness:c_nothing_wrong             0.5374937   0.7804728  0.6887  0.49103  
## Agreeableness:b_dumbfounded          0.4075725   0.8397540  0.4853  0.62743  
## Agreeableness:c_nothing_wrong       -0.1507693   0.8253794 -0.1827  0.85506  
## Conscientiousness:b_dumbfounded      0.2837539   0.6627841  0.4281  0.66856  
## Conscientiousness:c_nothing_wrong    0.2139318   0.6606006  0.3238  0.74606  
## harm_care:b_dumbfounded              0.7334954   0.6311949  1.1621  0.24521  
## harm_care:c_nothing_wrong            0.1614460   0.5913442  0.2730  0.78484  
## fairness:b_dumbfounded               0.4928605   0.6477889  0.7608  0.44676  
## fairness:c_nothing_wrong             0.2153805   0.6082283  0.3541  0.72326  
## loyalty:b_dumbfounded               -0.8766589   0.5471727 -1.6022  0.10912  
## loyalty:c_nothing_wrong             -0.7915035   0.5256841 -1.5057  0.13215  
## authority:b_dumbfounded             -0.1284743   0.5169231 -0.2485  0.80372  
## authority:c_nothing_wrong           -0.2779190   0.5771354 -0.4815  0.63013  
## purity:b_dumbfounded                 0.0927462   0.5425152  0.1710  0.86426  
## purity:c_nothing_wrong              -0.0286183   0.5409833 -0.0529  0.95781  
## AOT:b_dumbfounded                    1.9575813   1.0571534  1.8517  0.06406 .
## AOT:c_nothing_wrong                 -0.0318061   1.0609371 -0.0300  0.97608  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -83.219
## McFadden R^2:  0.13926 
## Likelihood ratio test : chisq = 26.927 (p.value = 0.86316)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Trolley

## 
##       a_reasons   b_dumbfounded c_nothing_wrong 
##              21               3              11

Politics and Religion

Political Ideology

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.588235        0.088235        0.323529 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 7.31E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                                    Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded          -2.92605    1.64788 -1.7756  0.07579 .
## (Intercept):c_nothing_wrong        -1.00699    0.92711 -1.0862  0.27741  
## Political_Ideology:b_dumbfounded    0.24210    0.33578  0.7210  0.47091  
## Political_Ideology:c_nothing_wrong  0.10192    0.20866  0.4884  0.62523  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -29.993
## McFadden R^2:  0.010434 
## Likelihood ratio test : chisq = 0.63251 (p.value = 0.72887)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (PI)

RCOPE Positive

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.588235        0.088235        0.323529 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 4.24E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -3.21023    1.47749 -2.1728  0.02980 *
## (Intercept):c_nothing_wrong -2.38052    0.97852 -2.4328  0.01498 *
## RE_P:b_dumbfounded           0.82037    0.76855  1.0674  0.28578  
## RE_P:c_nothing_wrong         1.06017    0.53250  1.9909  0.04649 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -27.855
## McFadden R^2:  0.080949 
## Likelihood ratio test : chisq = 4.907 (p.value = 0.085993)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (RCOPE Positive)

RCOPE Negative

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.588235        0.088235        0.323529 
## 
## nr method
## 20 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.74E-07 
## gradient close to zero 
## 
## Coefficients :
##                                Estimate  Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded     103.27029 18883.29901  0.0055   0.9956
## (Intercept):c_nothing_wrong    -1.57821     1.06672 -1.4795   0.1390
## RE_N:b_dumbfounded           -104.47286 18883.29885 -0.0055   0.9956
## RE_N:c_nothing_wrong            0.66685     0.67040  0.9947   0.3199
## 
## Log-Likelihood: -27.58
## McFadden R^2:  0.090048 
## Likelihood ratio test : chisq = 5.4585 (p.value = 0.065267)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (RCOPE Negative)

Thinking

Need For Cognition

## 
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.600000        0.085714        0.314286 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 4.86E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)   
## (Intercept):b_dumbfounded   -2.08750    0.69248 -3.0145 0.002574 **
## (Intercept):c_nothing_wrong -0.76413    0.40201 -1.9008 0.057332 . 
## NFC:b_dumbfounded           -0.38175    0.53856 -0.7088 0.478434   
## NFC:c_nothing_wrong          0.50619    0.33959  1.4906 0.136070   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -29.067
## McFadden R^2:  0.057177 
## Likelihood ratio test : chisq = 3.5255 (p.value = 0.17157)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (NFC)

AOT

## 
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.606061        0.090909        0.303030 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 8.44E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -4.12497    4.21083 -0.9796   0.3273
## (Intercept):c_nothing_wrong  2.21193    3.29684  0.6709   0.5023
## AOT:b_dumbfounded            0.97827    1.79958  0.5436   0.5867
## AOT:c_nothing_wrong         -1.33628    1.51975 -0.8793   0.3792
## 
## Log-Likelihood: -28.458
## McFadden R^2:  0.023692 
## Likelihood ratio test : chisq = 1.3811 (p.value = 0.50129)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (AOT)

Dark Triad

Machiavellianism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.588235        0.088235        0.323529 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 8.39E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -4.752413   2.092221 -2.2715  0.02312 *
## (Intercept):c_nothing_wrong  0.047854   0.820533  0.0583  0.95349  
## DT_M:b_dumbfounded           0.786680   0.471529  1.6684  0.09524 .
## DT_M:c_nothing_wrong        -0.255106   0.296364 -0.8608  0.38935  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -27.781
## McFadden R^2:  0.08342 
## Likelihood ratio test : chisq = 5.0568 (p.value = 0.079788)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Machiavellianism)

Narcissism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.575758        0.090909        0.333333 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.65E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -2.75208    1.75010 -1.5725  0.11583  
## (Intercept):c_nothing_wrong  1.15432    0.94328  1.2237  0.22105  
## DT_N:b_dumbfounded           0.19789    0.33946  0.5830  0.55993  
## DT_N:c_nothing_wrong        -0.48171    0.25570 -1.8839  0.05958 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -27.121
## McFadden R^2:  0.088908 
## Likelihood ratio test : chisq = 5.2932 (p.value = 0.070893)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Narcissism)

Psychopathy

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.588235        0.088235        0.323529 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 8.2E-08 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)   
## (Intercept):b_dumbfounded   -3.533746   1.222289 -2.8911 0.003839 **
## (Intercept):c_nothing_wrong -0.750525   0.746109 -1.0059 0.314455   
## DT_P:b_dumbfounded           0.605184   0.347345  1.7423 0.081453 . 
## DT_P:c_nothing_wrong         0.078383   0.329093  0.2382 0.811743   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -28.277
## McFadden R^2:  0.067035 
## Likelihood ratio test : chisq = 4.0635 (p.value = 0.1311)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Psychopathy)

Big Five

Extraversion

## 
## Call:
## mlogit(formula = InCS ~ 1 | Extraversion, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.588235        0.088235        0.323529 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.6E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded    -2.87496    3.84686 -0.7474  0.45485  
## (Intercept):c_nothing_wrong  -5.14479    2.71859 -1.8924  0.05843 .
## Extraversion:b_dumbfounded    0.34974    1.34460  0.2601  0.79478  
## Extraversion:c_nothing_wrong  1.55494    0.90820  1.7121  0.08688 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -28.568
## McFadden R^2:  0.057442 
## Likelihood ratio test : chisq = 3.482 (p.value = 0.17534)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Extraversion)

Openness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.575758        0.090909        0.333333 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.000135 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -4.89827    3.41615 -1.4339   0.1516
## (Intercept):c_nothing_wrong -2.04997    1.95894 -1.0465   0.2953
## Openness:b_dumbfounded       1.07796    1.13851  0.9468   0.3437
## Openness:c_nothing_wrong     0.54688    0.69377  0.7883   0.4305
## 
## Log-Likelihood: -29.133
## McFadden R^2:  0.021338 
## Likelihood ratio test : chisq = 1.2703 (p.value = 0.52984)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Openness)

Agreeableness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.588235        0.088235        0.323529 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 4.17E-07 
## gradient close to zero 
## 
## Coefficients :
##                               Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded     -7.48443    3.81053 -1.9641  0.04951 *
## (Intercept):c_nothing_wrong   -0.80529    2.39096 -0.3368  0.73626  
## Agreeableness:b_dumbfounded    1.98398    1.27049  1.5616  0.11838  
## Agreeableness:c_nothing_wrong  0.07958    0.90516  0.0879  0.92994  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -28.985
## McFadden R^2:  0.043696 
## Likelihood ratio test : chisq = 2.6487 (p.value = 0.26597)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Agreeableness)

Conscientiousness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.588235        0.088235        0.323529 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.86E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                                   Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded         -2.87324    3.06322 -0.9380   0.3483
## (Intercept):c_nothing_wrong       -0.19960    1.90592 -0.1047   0.9166
## Conscientiousness:b_dumbfounded    0.35365    1.07081  0.3303   0.7412
## Conscientiousness:c_nothing_wrong -0.14845    0.69825 -0.2126   0.8316
## 
## Log-Likelihood: -30.213
## McFadden R^2:  0.0031515 
## Likelihood ratio test : chisq = 0.19104 (p.value = 0.9089)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Conscientiousness)

Neuroticism

## 
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.588235        0.088235        0.323529 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.67E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.765554   2.724959 -0.6479   0.5170
## (Intercept):c_nothing_wrong -1.574307   1.751654 -0.8988   0.3688
## Neuroticism:b_dumbfounded   -0.048157   0.973912 -0.0494   0.9606
## Neuroticism:c_nothing_wrong  0.347400   0.604111  0.5751   0.5653
## 
## Log-Likelihood: -30.125
## McFadden R^2:  0.0060628 
## Likelihood ratio test : chisq = 0.36751 (p.value = 0.83214)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Neuroticism)

Moral Foundations

Harm/Care

## 
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.617647        0.088235        0.294118 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.63E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -0.81249    3.98980 -0.2036   0.8386
## (Intercept):c_nothing_wrong -2.03475    2.73730 -0.7433   0.4573
## harm_care:b_dumbfounded     -0.34700    1.21882 -0.2847   0.7759
## harm_care:c_nothing_wrong    0.38531    0.80368  0.4794   0.6316
## 
## Log-Likelihood: -29.448
## McFadden R^2:  0.0064762 
## Likelihood ratio test : chisq = 0.3839 (p.value = 0.82535)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Harm/Care)

Fairness

## 
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.617647        0.088235        0.294118 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 9.55E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded    0.927552   3.623619  0.2560   0.7980
## (Intercept):c_nothing_wrong -0.994143   2.745536 -0.3621   0.7173
## fairness:b_dumbfounded      -0.763816   0.974592 -0.7837   0.4332
## fairness:c_nothing_wrong     0.064556   0.695200  0.0929   0.9260
## 
## Log-Likelihood: -29.311
## McFadden R^2:  0.011094 
## Likelihood ratio test : chisq = 0.65763 (p.value = 0.71978)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Fairness)

Loyalty

## 
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.617647        0.088235        0.294118 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.8E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -6.41712    4.21869 -1.5211   0.1282
## (Intercept):c_nothing_wrong -1.51596    1.80555 -0.8396   0.4011
## loyalty:b_dumbfounded        1.61938    1.43751  1.1265   0.2599
## loyalty:c_nothing_wrong      0.29953    0.67734  0.4422   0.6583
## 
## Log-Likelihood: -28.836
## McFadden R^2:  0.027105 
## Likelihood ratio test : chisq = 1.6068 (p.value = 0.44781)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Loyalty)

Authority

## 
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.617647        0.088235        0.294118 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 5.72E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -5.601480   3.416214 -1.6397   0.1011
## (Intercept):c_nothing_wrong -0.899357   1.375555 -0.6538   0.5132
## authority:b_dumbfounded      1.191336   1.024283  1.1631   0.2448
## authority:c_nothing_wrong    0.056937   0.476543  0.1195   0.9049
## 
## Log-Likelihood: -28.803
## McFadden R^2:  0.028212 
## Likelihood ratio test : chisq = 1.6724 (p.value = 0.43336)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Authority)

Purity

## 
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.617647        0.088235        0.294118 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 8.68E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -2.55566    2.13828 -1.1952   0.2320
## (Intercept):c_nothing_wrong -2.37465    1.45864 -1.6280   0.1035
## purity:b_dumbfounded         0.25104    0.82463  0.3044   0.7608
## purity:c_nothing_wrong       0.64314    0.54034  1.1903   0.2339
## 
## Log-Likelihood: -28.875
## McFadden R^2:  0.025782 
## Likelihood ratio test : chisq = 1.5283 (p.value = 0.46572)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Purity)

All Variables

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P + 
##     RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion + 
##     Openness + Agreeableness + Conscientiousness + harm_care + 
##     +fairness + loyalty + authority + purity + AOT, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.56667         0.10000         0.33333 
## 
## nr method
## 19 iterations, 0h:0m:0s 
## g'(-H)^-1g = 6.78E-07 
## gradient close to zero 
## 
## Coefficients :
##                                       Estimate  Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded           3.6589e+01  2.5964e+05  0.0001   0.9999
## (Intercept):c_nothing_wrong         2.3498e+01  8.4189e+04  0.0003   0.9998
## Political_Ideology:b_dumbfounded    3.7103e-01  1.7882e+04  0.0000   1.0000
## Political_Ideology:c_nothing_wrong  1.8990e+01  4.7718e+03  0.0040   0.9968
## NFC:b_dumbfounded                  -4.3597e+00  1.2902e+04 -0.0003   0.9997
## NFC:c_nothing_wrong                 8.1465e+00  1.2082e+04  0.0007   0.9995
## RE_P:b_dumbfounded                  4.8952e+01  4.2659e+04  0.0011   0.9991
## RE_P:c_nothing_wrong                5.8458e+01  2.7512e+04  0.0021   0.9983
## RE_N:b_dumbfounded                 -2.8008e+01  3.9304e+04 -0.0007   0.9994
## RE_N:c_nothing_wrong               -2.5605e+01  3.6647e+04 -0.0007   0.9994
## DT_M:b_dumbfounded                 -6.7415e-02  1.1711e+04  0.0000   1.0000
## DT_M:c_nothing_wrong                1.4615e+01  1.3357e+04  0.0011   0.9991
## DT_P:b_dumbfounded                  2.8593e+00  1.3328e+04  0.0002   0.9998
## DT_P:c_nothing_wrong               -8.2968e+00  7.7128e+03 -0.0011   0.9991
## DT_N:b_dumbfounded                 -3.3050e+00  1.0044e+04 -0.0003   0.9997
## DT_N:c_nothing_wrong               -2.7304e+01  5.1524e+03 -0.0053   0.9958
## Neuroticism:b_dumbfounded          -3.1894e+01  4.8655e+04 -0.0007   0.9995
## Neuroticism:c_nothing_wrong        -3.1902e+01  1.8799e+04 -0.0017   0.9986
## Extraversion:b_dumbfounded         -2.0084e+01  3.7989e+04 -0.0005   0.9996
## Extraversion:c_nothing_wrong        2.0688e+01  3.7728e+04  0.0005   0.9996
## Openness:b_dumbfounded             -6.2813e+00  2.7479e+04 -0.0002   0.9998
## Openness:c_nothing_wrong            2.4232e+01  2.0181e+04  0.0012   0.9990
## Agreeableness:b_dumbfounded         4.7160e+01  6.9892e+04  0.0007   0.9995
## Agreeableness:c_nothing_wrong       9.9403e+01  3.2035e+04  0.0031   0.9975
## Conscientiousness:b_dumbfounded    -2.1179e+01  5.0670e+04 -0.0004   0.9997
## Conscientiousness:c_nothing_wrong  -7.3424e+01  2.8806e+04 -0.0025   0.9980
## harm_care:b_dumbfounded             8.5807e+00  2.3604e+04  0.0004   0.9997
## harm_care:c_nothing_wrong           2.1124e+01  4.5622e+04  0.0005   0.9996
## fairness:b_dumbfounded              1.0428e+01  6.9310e+04  0.0002   0.9999
## fairness:c_nothing_wrong            4.3437e+01  1.2588e+04  0.0035   0.9972
## loyalty:b_dumbfounded               1.7997e+01  2.6232e+04  0.0007   0.9995
## loyalty:c_nothing_wrong             1.7410e+01  2.9567e+04  0.0006   0.9995
## authority:b_dumbfounded            -1.2016e+01  2.5766e+04 -0.0005   0.9996
## authority:c_nothing_wrong          -4.6098e+01  3.0912e+04 -0.0015   0.9988
## purity:b_dumbfounded               -1.3477e+01  4.0414e+04 -0.0003   0.9997
## purity:c_nothing_wrong             -1.1592e+01  1.7100e+04 -0.0007   0.9995
## AOT:b_dumbfounded                  -2.0855e+01  8.9769e+04 -0.0002   0.9998
## AOT:c_nothing_wrong                -1.5524e+02  6.6658e+04 -0.0023   0.9981
## 
## Log-Likelihood: -2.4957e-07
## McFadden R^2:  1 
## Likelihood ratio test : chisq = 55.099 (p.value = 0.021737)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Druggist

## 
##       a_reasons   b_dumbfounded c_nothing_wrong 
##              22               5               3

Politics and Religion

Political Ideology

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71429         0.17857         0.10714 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.68E-08 
## gradient close to zero 
## 
## Coefficients :
##                                      Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded          -1.9133131  1.0387509 -1.8419  0.06548 .
## (Intercept):c_nothing_wrong        -1.8842954  1.1689549 -1.6119  0.10697  
## Political_Ideology:b_dumbfounded    0.1435458  0.2353170  0.6100  0.54185  
## Political_Ideology:c_nothing_wrong -0.0038378  0.2972638 -0.0129  0.98970  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -21.851
## McFadden R^2:  0.0087733 
## Likelihood ratio test : chisq = 0.3868 (p.value = 0.82415)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (PI)

RCOPE Positive

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71429         0.17857         0.10714 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 6.34E-08 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.330802   1.663629 -0.7999   0.4237
## (Intercept):c_nothing_wrong -2.190381   1.982956 -1.1046   0.2693
## RE_P:b_dumbfounded          -0.043042   1.232769 -0.0349   0.9721
## RE_P:c_nothing_wrong         0.223418   1.419158  0.1574   0.8749
## 
## Log-Likelihood: -22.03
## McFadden R^2:  0.0006294 
## Likelihood ratio test : chisq = 0.027749 (p.value = 0.98622)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (RCOPE Positive)

RCOPE Negative

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71429         0.17857         0.10714 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.31E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -4.67891    2.61122 -1.7918  0.07316 .
## (Intercept):c_nothing_wrong -1.18746    3.45037 -0.3442  0.73073  
## RE_N:b_dumbfounded           2.63167    1.97985  1.3292  0.18377  
## RE_N:c_nothing_wrong        -0.61348    2.96154 -0.2071  0.83589  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -21.036
## McFadden R^2:  0.045735 
## Likelihood ratio test : chisq = 2.0164 (p.value = 0.36488)
## $hosmer_and_lemeshow
## [1] 0
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] 0
## 
## $nagelkerke
## [1] 0

Plot (RCOPE Negative)

Thinking

Need For Cognition

## 
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71429         0.17857         0.10714 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.34E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)   
## (Intercept):b_dumbfounded   -1.384905   0.500756 -2.7656 0.005681 **
## (Intercept):c_nothing_wrong -2.507202   0.948853 -2.6423 0.008233 **
## NFC:b_dumbfounded           -0.016957   0.373037 -0.0455 0.963743   
## NFC:c_nothing_wrong         -0.955222   0.624721 -1.5290 0.126255   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -20.515
## McFadden R^2:  0.069366 
## Likelihood ratio test : chisq = 3.0582 (p.value = 0.21673)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (NFC)

AOT

## 
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.69231         0.19231         0.11538 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.001 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -2.82830    3.12944 -0.9038   0.3661
## (Intercept):c_nothing_wrong -2.47632    3.72489 -0.6648   0.5062
## AOT:b_dumbfounded            0.67938    1.33897  0.5074   0.6119
## AOT:c_nothing_wrong          0.30424    1.62036  0.1878   0.8511
## 
## Log-Likelihood: -21.204
## McFadden R^2:  0.0064064 
## Likelihood ratio test : chisq = 0.27344 (p.value = 0.87222)
## $hosmer_and_lemeshow
## [1] 0
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] 0
## 
## $nagelkerke
## [1] 0

Plot (AOT)

Dark Triad

Machiavellianism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71429         0.17857         0.10714 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.13E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -1.04332    1.04987 -0.9938  0.32034  
## (Intercept):c_nothing_wrong -3.36263    1.60068 -2.1008  0.03566 *
## DT_M:b_dumbfounded          -0.11447    0.31773 -0.3603  0.71863  
## DT_M:c_nothing_wrong         0.38933    0.34918  1.1150  0.26486  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -21.242
## McFadden R^2:  0.036365 
## Likelihood ratio test : chisq = 1.6033 (p.value = 0.44859)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Machiavellianism)

Narcissism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.70370         0.18519         0.11111 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 7.25E-08 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.064851   1.210249 -0.8799   0.3789
## (Intercept):c_nothing_wrong -1.295784   1.441865 -0.8987   0.3688
## DT_N:b_dumbfounded          -0.074015   0.306452 -0.2415   0.8091
## DT_N:c_nothing_wrong        -0.155350   0.383546 -0.4050   0.6855
## 
## Log-Likelihood: -21.601
## McFadden R^2:  0.0045529 
## Likelihood ratio test : chisq = 0.1976 (p.value = 0.90592)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Narcissism)

Psychopathy

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71429         0.17857         0.10714 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -2.21567    1.04002 -2.1304  0.03314 *
## (Intercept):c_nothing_wrong -1.65165    1.30199 -1.2686  0.20460  
## DT_P:b_dumbfounded           0.35328    0.36502  0.9678  0.33313  
## DT_P:c_nothing_wrong        -0.12352    0.59239 -0.2085  0.83482  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -21.51
## McFadden R^2:  0.024238 
## Likelihood ratio test : chisq = 1.0686 (p.value = 0.58608)
## $hosmer_and_lemeshow
## [1] 0
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] 0
## 
## $nagelkerke
## [1] 0

Plot (Psychopathy)

Big Five

Extraversion

## 
## Call:
## mlogit(formula = InCS ~ 1 | Extraversion, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72414         0.17241         0.10345 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.2E-08 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded    -5.44549    4.15103 -1.3118   0.1896
## (Intercept):c_nothing_wrong  -2.87479    5.09706 -0.5640   0.5727
## Extraversion:b_dumbfounded    1.36546    1.38115  0.9886   0.3228
## Extraversion:c_nothing_wrong  0.32377    1.75450  0.1845   0.8536
## 
## Log-Likelihood: -21.867
## McFadden R^2:  0.022644 
## Likelihood ratio test : chisq = 1.0132 (p.value = 0.60253)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Extraversion)

Openness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72414         0.17241         0.10345 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 5.09E-08 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -2.06000    2.57236 -0.8008   0.4232
## (Intercept):c_nothing_wrong -2.25252    3.18407 -0.7074   0.4793
## Openness:b_dumbfounded       0.23430    0.93923  0.2495   0.8030
## Openness:c_nothing_wrong     0.11567    1.17315  0.0986   0.9215
## 
## Log-Likelihood: -22.341
## McFadden R^2:  0.0014622 
## Likelihood ratio test : chisq = 0.065428 (p.value = 0.96782)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Openness)

Agreeableness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72414         0.17241         0.10345 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.33E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                               Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded     -3.28569    2.88298 -1.1397   0.2544
## (Intercept):c_nothing_wrong    0.16622    3.45896  0.0481   0.9617
## Agreeableness:b_dumbfounded    0.66890    1.00821  0.6635   0.5070
## Agreeableness:c_nothing_wrong -0.81544    1.34929 -0.6043   0.5456
## 
## Log-Likelihood: -21.885
## McFadden R^2:  0.021817 
## Likelihood ratio test : chisq = 0.97625 (p.value = 0.61377)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Agreeableness)

Conscientiousness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72414         0.17241         0.10345 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 6.1E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                                    Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded          -0.74611    3.00533 -0.2483  0.80393  
## (Intercept):c_nothing_wrong       -12.72612    6.95524 -1.8297  0.06729 .
## Conscientiousness:b_dumbfounded    -0.25706    1.11223 -0.2311  0.81722  
## Conscientiousness:c_nothing_wrong   3.60655    2.20464  1.6359  0.10186  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -20.236
## McFadden R^2:  0.095524 
## Likelihood ratio test : chisq = 4.2744 (p.value = 0.11798)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Conscientiousness)

Neuroticism

## 
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.72414         0.17241         0.10345 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.49E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded    -4.5447     2.6666 -1.7043  0.08833 .
## (Intercept):c_nothing_wrong  -4.8536     3.2523 -1.4923  0.13561  
## Neuroticism:b_dumbfounded     1.1192     0.9060  1.2353  0.21673  
## Neuroticism:c_nothing_wrong   1.0508     1.1020  0.9536  0.34028  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -21.238
## McFadden R^2:  0.050765 
## Likelihood ratio test : chisq = 2.2716 (p.value = 0.32117)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Neuroticism)

Moral Foundations

Harm/Care

## 
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.70370         0.18519         0.11111 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.000148 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.445886   3.385692 -0.4271   0.6693
## (Intercept):c_nothing_wrong  3.755704   3.590560  1.0460   0.2956
## harm_care:b_dumbfounded      0.031721   0.957117  0.0331   0.9736
## harm_care:c_nothing_wrong   -1.745389   1.157678 -1.5077   0.1316
## 
## Log-Likelihood: -20.316
## McFadden R^2:  0.063776 
## Likelihood ratio test : chisq = 2.7679 (p.value = 0.25058)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Harm/Care)

Fairness

## 
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.70370         0.18519         0.11111 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.42E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -2.52074    3.63491 -0.6935   0.4880
## (Intercept):c_nothing_wrong -4.61524    4.94863 -0.9326   0.3510
## fairness:b_dumbfounded       0.29999    0.90419  0.3318   0.7401
## fairness:c_nothing_wrong     0.69036    1.20120  0.5747   0.5655
## 
## Log-Likelihood: -21.492
## McFadden R^2:  0.0095907 
## Likelihood ratio test : chisq = 0.41624 (p.value = 0.81211)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Fairness)

Loyalty

## 
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.70370         0.18519         0.11111 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 6.37E-08 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded    0.23337    2.18607  0.1068   0.9150
## (Intercept):c_nothing_wrong  0.22968    2.61062  0.0880   0.9299
## loyalty:b_dumbfounded       -0.60860    0.84477 -0.7204   0.4713
## loyalty:c_nothing_wrong     -0.81748    1.03997 -0.7861   0.4318
## 
## Log-Likelihood: -21.212
## McFadden R^2:  0.0225 
## Likelihood ratio test : chisq = 0.97651 (p.value = 0.6137)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Loyalty)

Authority

## 
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.70370         0.18519         0.11111 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.03E-08 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.474144   2.202442 -0.6693   0.5033
## (Intercept):c_nothing_wrong  2.154681   2.790021  0.7723   0.4399
## authority:b_dumbfounded      0.050485   0.776303  0.0650   0.9481
## authority:c_nothing_wrong   -1.633776   1.187948 -1.3753   0.1690
## 
## Log-Likelihood: -20.521
## McFadden R^2:  0.054331 
## Likelihood ratio test : chisq = 2.358 (p.value = 0.30759)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Authority)

Purity

## 
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.70370         0.18519         0.11111 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.13E-08 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -0.374158   1.656030 -0.2259   0.8213
## (Intercept):c_nothing_wrong -2.013329   2.314719 -0.8698   0.3844
## purity:b_dumbfounded        -0.416130   0.700071 -0.5944   0.5522
## purity:c_nothing_wrong       0.068976   0.913787  0.0755   0.9398
## 
## Log-Likelihood: -21.508
## McFadden R^2:  0.0088496 
## Likelihood ratio test : chisq = 0.38408 (p.value = 0.82528)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Purity)

All Variables

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P + 
##     RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion + 
##     Openness + Agreeableness + Conscientiousness + harm_care + 
##     +fairness + loyalty + authority + purity + AOT, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.69231         0.19231         0.11538 
## 
## nr method
## 19 iterations, 0h:0m:0s 
## g'(-H)^-1g = 4.2E-07 
## gradient close to zero 
## 
## Coefficients :
##                                       Estimate  Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded          -8.1759e+02  1.7842e+06  -5e-04   0.9996
## (Intercept):c_nothing_wrong         2.5139e+02  1.8865e+06   1e-04   0.9999
## Political_Ideology:b_dumbfounded    4.7176e+00  2.0500e+04   2e-04   0.9998
## Political_Ideology:c_nothing_wrong  1.7120e+00  7.0904e+03   2e-04   0.9998
## NFC:b_dumbfounded                  -1.6818e+01  6.0591e+04  -3e-04   0.9998
## NFC:c_nothing_wrong                -3.9968e+00  8.1606e+04   0e+00   1.0000
## RE_P:b_dumbfounded                  3.8017e+00  2.9862e+05   0e+00   1.0000
## RE_P:c_nothing_wrong               -5.6896e+00  3.7490e+05   0e+00   1.0000
## RE_N:b_dumbfounded                  8.7164e+01  2.5959e+05   3e-04   0.9997
## RE_N:c_nothing_wrong                6.6493e-01  3.3648e+05   0e+00   1.0000
## DT_M:b_dumbfounded                 -2.4936e+00  7.6889e+04   0e+00   1.0000
## DT_M:c_nothing_wrong                4.7372e+00  4.0320e+04   1e-04   0.9999
## DT_P:b_dumbfounded                  2.0738e+01  3.8469e+04   5e-04   0.9996
## DT_P:c_nothing_wrong               -2.1284e+00  4.1132e+04  -1e-04   1.0000
## DT_N:b_dumbfounded                  9.6682e+00  4.1647e+04   2e-04   0.9998
## DT_N:c_nothing_wrong               -3.6318e+00  1.8218e+04  -2e-04   0.9998
## Neuroticism:b_dumbfounded           5.9857e+01  1.1982e+05   5e-04   0.9996
## Neuroticism:c_nothing_wrong         5.5895e-01  2.4860e+05   0e+00   1.0000
## Extraversion:b_dumbfounded          1.7106e+01  2.4964e+05   1e-04   0.9999
## Extraversion:c_nothing_wrong        6.0370e+00  2.1399e+05   0e+00   1.0000
## Openness:b_dumbfounded             -5.1167e+01  2.3031e+05  -2e-04   0.9998
## Openness:c_nothing_wrong           -2.3137e+00  8.4955e+04   0e+00   1.0000
## Agreeableness:b_dumbfounded        -4.1351e+00  8.9379e+04   0e+00   1.0000
## Agreeableness:c_nothing_wrong      -2.4311e+01  1.8438e+05  -1e-04   0.9999
## Conscientiousness:b_dumbfounded    -1.3039e+01  2.4312e+05  -1e-04   1.0000
## Conscientiousness:c_nothing_wrong   1.3956e+01  8.5504e+04   2e-04   0.9999
## harm_care:b_dumbfounded             3.4847e+01  6.5487e+04   5e-04   0.9996
## harm_care:c_nothing_wrong          -2.7211e+01  7.0340e+04  -4e-04   0.9997
## fairness:b_dumbfounded              4.5434e+01  9.4496e+04   5e-04   0.9996
## fairness:c_nothing_wrong           -1.2686e+01  1.8430e+05  -1e-04   0.9999
## loyalty:b_dumbfounded              -2.4310e+01  1.9424e+05  -1e-04   0.9999
## loyalty:c_nothing_wrong            -6.1877e+00  3.1250e+05   0e+00   1.0000
## authority:b_dumbfounded             4.5427e+00  1.4564e+05   0e+00   1.0000
## authority:c_nothing_wrong          -1.0092e+01  1.9585e+05  -1e-04   1.0000
## purity:b_dumbfounded                1.6784e+01  1.2897e+05   1e-04   0.9999
## purity:c_nothing_wrong              8.4817e+00  2.1234e+05   0e+00   1.0000
## AOT:b_dumbfounded                   1.2253e+02  1.6747e+05   7e-04   0.9994
## AOT:c_nothing_wrong                -3.9698e+01  1.4755e+05  -3e-04   0.9998
## 
## Log-Likelihood: -1.5459e-07
## McFadden R^2:  1 
## Likelihood ratio test : chisq = 42.682 (p.value = 0.20585)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Cannibal

## 
##       a_reasons   b_dumbfounded c_nothing_wrong 
##              32               3               3

Politics and Religion

Political Ideology

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.888889        0.055556        0.055556 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.27E-07 
## gradient close to zero 
## 
## Coefficients :
##                                    Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded          -2.40317    1.46866 -1.6363   0.1018
## (Intercept):c_nothing_wrong        -1.52444    1.22469 -1.2447   0.2132
## Political_Ideology:b_dumbfounded   -0.11643    0.42188 -0.2760   0.7826
## Political_Ideology:c_nothing_wrong -0.47017    0.46753 -1.0056   0.3146
## 
## Log-Likelihood: -14.733
## McFadden R^2:  0.03896 
## Likelihood ratio test : chisq = 1.1945 (p.value = 0.55031)
## $hosmer_and_lemeshow
## [1] 0
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] 0
## 
## $nagelkerke
## [1] 0

Plot (PI)

RCOPE Positive

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.888889        0.055556        0.055556 
## 
## nr method
## 20 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.87E-07 
## gradient close to zero 
## 
## Coefficients :
##                               Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded      -1.3166     2.0523 -0.6415   0.5212
## (Intercept):c_nothing_wrong    93.8994 18560.3771  0.0051   0.9960
## RE_P:b_dumbfounded             -1.0407     1.5655 -0.6647   0.5062
## RE_P:c_nothing_wrong          -95.8883 18560.3768 -0.0052   0.9959
## 
## Log-Likelihood: -13.519
## McFadden R^2:  0.11816 
## Likelihood ratio test : chisq = 3.6229 (p.value = 0.16341)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (RCOPE Positive)

RCOPE Negative

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.885714        0.057143        0.057143 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.44E-07 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -2.823943   1.928721 -1.4642   0.1432
## (Intercept):c_nothing_wrong -2.823943   1.928721 -1.4642   0.1432
## RE_N:b_dumbfounded           0.068904   1.471652  0.0468   0.9627
## RE_N:c_nothing_wrong         0.068904   1.471652  0.0468   0.9627
## 
## Log-Likelihood: -15.209
## McFadden R^2:  0.00013127 
## Likelihood ratio test : chisq = 0.0039936 (p.value = 0.99801)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (RCOPE Negative)

Thinking

Need For Cognition

## 
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.885714        0.057143        0.057143 
## 
## nr method
## 8 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.38E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value  Pr(>|z|)    
## (Intercept):b_dumbfounded   -2.72474    0.73029 -3.7310 0.0001907 ***
## (Intercept):c_nothing_wrong -6.30027    3.31132 -1.9026 0.0570865 .  
## NFC:b_dumbfounded           -0.11401    0.46064 -0.2475 0.8045155    
## NFC:c_nothing_wrong          2.08755    1.37195  1.5216 0.1281111    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -12.378
## McFadden R^2:  0.18626 
## Likelihood ratio test : chisq = 5.6664 (p.value = 0.058826)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (NFC)

AOT

## 
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.885714        0.057143        0.057143 
## 
## nr method
## 7 iterations, 0h:0m:0s 
## g'(-H)^-1g = 8.47E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -4.15033    3.32339 -1.2488   0.2117
## (Intercept):c_nothing_wrong  4.37544    5.39853  0.8105   0.4177
## AOT:b_dumbfounded            0.65644    1.46292  0.4487   0.6536
## AOT:c_nothing_wrong         -4.01771    3.32545 -1.2082   0.2270
## 
## Log-Likelihood: -13.723
## McFadden R^2:  0.097815 
## Likelihood ratio test : chisq = 2.9757 (p.value = 0.22585)
## $hosmer_and_lemeshow
## [1] 0
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] 0
## 
## $nagelkerke
## [1] 0

Plot (AOT)

Dark Triad

Machiavellianism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.864865        0.054054        0.081081 
## 
## nr method
## 7 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.47E-08 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded    0.015265   2.055727  0.0074  0.99408  
## (Intercept):c_nothing_wrong -2.331905   1.327182 -1.7570  0.07891 .
## DT_M:b_dumbfounded          -1.484117   1.360370 -1.0910  0.27529  
## DT_M:c_nothing_wrong        -0.012373   0.416804 -0.0297  0.97632  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -16.609
## McFadden R^2:  0.078234 
## Likelihood ratio test : chisq = 2.8193 (p.value = 0.24423)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Machiavellianism)

Narcissism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.861111        0.055556        0.083333 
## 
## nr method
## 7 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.00012 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -0.47817    1.55764 -0.3070  0.75886  
## (Intercept):c_nothing_wrong -4.16474    1.82002 -2.2883  0.02212 *
## DT_N:b_dumbfounded          -0.86797    0.74918 -1.1586  0.24664  
## DT_N:c_nothing_wrong         0.36743    0.30212  1.2161  0.22393  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -15.512
## McFadden R^2:  0.13198 
## Likelihood ratio test : chisq = 4.7171 (p.value = 0.094558)
## $hosmer_and_lemeshow
## [1] 0
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] 0
## 
## $nagelkerke
## [1] 0

Plot (Narcissism)

Psychopathy

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.864865        0.054054        0.081081 
## 
## nr method
## 9 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.99E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)   
## (Intercept):b_dumbfounded    0.82442    3.36303  0.2451 0.806346   
## (Intercept):c_nothing_wrong -4.32599    1.34876 -3.2074 0.001339 **
## DT_P:b_dumbfounded          -2.60245    2.88729 -0.9013 0.367403   
## DT_P:c_nothing_wrong         0.62562    0.30857  2.0274 0.042617 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -14.339
## McFadden R^2:  0.20418 
## Likelihood ratio test : chisq = 7.3579 (p.value = 0.02525)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Psychopathy)

Big Five

Extraversion

## 
## Call:
## mlogit(formula = InCS ~ 1 | Extraversion, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.864865        0.054054        0.081081 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.72E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded    -1.91685    3.31051 -0.5790   0.5626
## (Intercept):c_nothing_wrong  -4.10361    2.93793 -1.3968   0.1625
## Extraversion:b_dumbfounded   -0.30457    1.17119 -0.2601   0.7948
## Extraversion:c_nothing_wrong  0.58100    0.93127  0.6239   0.5327
## 
## Log-Likelihood: -17.778
## McFadden R^2:  0.013313 
## Likelihood ratio test : chisq = 0.47974 (p.value = 0.78673)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Extraversion)

Openness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.864865        0.054054        0.081081 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 8.78E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -4.04277    3.29178 -1.2281  0.21939  
## (Intercept):c_nothing_wrong  5.87570    4.32848  1.3575  0.17464  
## Openness:b_dumbfounded       0.47727    1.17267  0.4070  0.68401  
## Openness:c_nothing_wrong    -3.81408    2.19462 -1.7379  0.08222 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -15.155
## McFadden R^2:  0.15889 
## Likelihood ratio test : chisq = 5.7259 (p.value = 0.057101)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Openness)

Agreeableness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.864865        0.054054        0.081081 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.54E-07 
## gradient close to zero 
## 
## Coefficients :
##                               Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded     -6.27131    5.21218 -1.2032   0.2289
## (Intercept):c_nothing_wrong    0.99339    3.47610  0.2858   0.7750
## Agreeableness:b_dumbfounded    1.32293    1.88560  0.7016   0.4829
## Agreeableness:c_nothing_wrong -1.39207    1.47629 -0.9430   0.3457
## 
## Log-Likelihood: -17.249
## McFadden R^2:  0.042667 
## Likelihood ratio test : chisq = 1.5376 (p.value = 0.46357)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Agreeableness)

Conscientiousness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.864865        0.054054        0.081081 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.79E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                                   Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded         -3.79657    3.50181 -1.0842   0.2783
## (Intercept):c_nothing_wrong       -0.54612    2.74341 -0.1991   0.8422
## Conscientiousness:b_dumbfounded    0.39100    1.28089  0.3053   0.7602
## Conscientiousness:c_nothing_wrong -0.74529    1.13713 -0.6554   0.5122
## 
## Log-Likelihood: -17.733
## McFadden R^2:  0.015853 
## Likelihood ratio test : chisq = 0.57128 (p.value = 0.75153)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Conscientiousness)

Neuroticism

## 
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.864865        0.054054        0.081081 
## 
## nr method
## 7 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.82E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded    2.30535    2.99154  0.7706   0.4409
## (Intercept):c_nothing_wrong -3.44952    2.52966 -1.3636   0.1727
## Neuroticism:b_dumbfounded   -2.30666    1.60144 -1.4404   0.1498
## Neuroticism:c_nothing_wrong  0.36704    0.80842  0.4540   0.6498
## 
## Log-Likelihood: -15.93
## McFadden R^2:  0.11589 
## Likelihood ratio test : chisq = 4.1762 (p.value = 0.12392)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Neuroticism)

Moral Foundations

Harm/Care

## 
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.885714        0.057143        0.057143 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.000147 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -11.07202    8.23099 -1.3452   0.1786
## (Intercept):c_nothing_wrong  -0.58019    4.22350 -0.1374   0.8907
## harm_care:b_dumbfounded       2.28991    2.14897  1.0656   0.2866
## harm_care:c_nothing_wrong    -0.66078    1.30787 -0.5052   0.6134
## 
## Log-Likelihood: -14.21
## McFadden R^2:  0.065799 
## Likelihood ratio test : chisq = 2.0017 (p.value = 0.36756)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Harm/Care)

Fairness

## 
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.888889        0.055556        0.055556 
## 
## nr method
## 7 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.43E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -15.9872    11.2093 -1.4263  0.15380  
## (Intercept):c_nothing_wrong   8.9006     6.4101  1.3885  0.16497  
## fairness:b_dumbfounded        2.9738     2.4075  1.2352  0.21676  
## fairness:c_nothing_wrong     -3.1220     1.8127 -1.7223  0.08502 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -11.849
## McFadden R^2:  0.22707 
## Likelihood ratio test : chisq = 6.9622 (p.value = 0.030773)
## $hosmer_and_lemeshow
## [1] 0
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] 0
## 
## $nagelkerke
## [1] 0

Plot (Fairness)

Loyalty

## 
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.882353        0.058824        0.058824 
## 
## nr method
## 21 iterations, 0h:0m:0s 
## g'(-H)^-1g = 6.91E-07 
## gradient close to zero 
## 
## Coefficients :
##                               Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded      -2.1467     2.6645 -0.8057   0.4204
## (Intercept):c_nothing_wrong   238.7609 30783.8458  0.0078   0.9938
## loyalty:b_dumbfounded          -0.2271     1.0574 -0.2148   0.8299
## loyalty:c_nothing_wrong      -190.7830 24260.0134 -0.0079   0.9937
## 
## Log-Likelihood: -7.4579
## McFadden R^2:  0.5057 
## Likelihood ratio test : chisq = 15.26 (p.value = 0.00048572)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Loyalty)

Authority

## 
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.888889        0.055556        0.055556 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 8.88E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.63005    1.73085 -0.9418   0.3463
## (Intercept):c_nothing_wrong  0.37813    1.51862  0.2490   0.8034
## authority:b_dumbfounded     -0.47297    0.71193 -0.6644   0.5065
## authority:c_nothing_wrong   -1.76107    1.07283 -1.6415   0.1007
## 
## Log-Likelihood: -12.948
## McFadden R^2:  0.1554 
## Likelihood ratio test : chisq = 4.7649 (p.value = 0.092326)
## $hosmer_and_lemeshow
## [1] 0
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] 0
## 
## $nagelkerke
## [1] 0

Plot (Authority)

Purity

## 
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.882353        0.058824        0.058824 
## 
## nr method
## 8 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.13E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -4.74583    2.35428 -2.0158  0.04382 *
## (Intercept):c_nothing_wrong  2.05739    1.88970  1.0887  0.27627  
## purity:b_dumbfounded         0.72856    0.72357  1.0069  0.31399  
## purity:c_nothing_wrong      -3.94511    2.40843 -1.6380  0.10141  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -9.5355
## McFadden R^2:  0.368 
## Likelihood ratio test : chisq = 11.105 (p.value = 0.0038787)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Purity)

All Variables

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P + 
##     RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion + 
##     Openness + Agreeableness + Conscientiousness + harm_care + 
##     +fairness + loyalty + authority + purity + AOT, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.866667        0.066667        0.066667 
## 
## nr method
## 18 iterations, 0h:0m:0s 
## g'(-H)^-1g = 6.59E-07 
## gradient close to zero 
## 
## Coefficients :
##                                       Estimate  Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded           2.3263e+01  1.7411e+05   1e-04   0.9999
## (Intercept):c_nothing_wrong        -1.8398e+01  1.6234e+05  -1e-04   0.9999
## Political_Ideology:b_dumbfounded   -3.4063e+00  2.1824e+04  -2e-04   0.9999
## Political_Ideology:c_nothing_wrong -3.3594e+00  4.0314e+04  -1e-04   0.9999
## NFC:b_dumbfounded                  -4.8004e+00  2.6153e+04  -2e-04   0.9999
## NFC:c_nothing_wrong                -2.7096e+00  3.0378e+04  -1e-04   0.9999
## RE_P:b_dumbfounded                  7.9413e+00  6.4763e+04   1e-04   0.9999
## RE_P:c_nothing_wrong               -6.1011e-01  6.6927e+04   0e+00   1.0000
## RE_N:b_dumbfounded                 -5.5682e+00  5.3383e+04  -1e-04   0.9999
## RE_N:c_nothing_wrong                1.0980e+01  4.6690e+04   2e-04   0.9998
## DT_M:b_dumbfounded                 -1.3313e+01  1.4408e+04  -9e-04   0.9993
## DT_M:c_nothing_wrong               -5.4125e+00  2.0351e+04  -3e-04   0.9998
## DT_P:b_dumbfounded                  6.0907e+00  1.3254e+04   5e-04   0.9996
## DT_P:c_nothing_wrong                9.8554e+00  1.6033e+04   6e-04   0.9995
## DT_N:b_dumbfounded                  6.9497e-01  1.6058e+04   0e+00   1.0000
## DT_N:c_nothing_wrong                1.7465e+00  9.6552e+03   2e-04   0.9999
## Neuroticism:b_dumbfounded          -1.7346e+01  5.2276e+04  -3e-04   0.9997
## Neuroticism:c_nothing_wrong        -1.6265e-02  3.1702e+04   0e+00   1.0000
## Extraversion:b_dumbfounded         -1.0617e+01  3.9495e+04  -3e-04   0.9998
## Extraversion:c_nothing_wrong        2.4961e+00  7.2258e+04   0e+00   1.0000
## Openness:b_dumbfounded             -2.2047e+01  9.9368e+04  -2e-04   0.9998
## Openness:c_nothing_wrong            4.9918e+00  9.4758e+04   1e-04   1.0000
## Agreeableness:b_dumbfounded         6.2784e+00  2.8417e+04   2e-04   0.9998
## Agreeableness:c_nothing_wrong      -7.2657e+00  7.7702e+04  -1e-04   0.9999
## Conscientiousness:b_dumbfounded    -9.4009e+00  4.4887e+04  -2e-04   0.9998
## Conscientiousness:c_nothing_wrong  -1.8920e+01  3.9880e+04  -5e-04   0.9996
## harm_care:b_dumbfounded             2.0694e+01  6.2939e+04   3e-04   0.9997
## harm_care:c_nothing_wrong           7.3821e+00  5.0953e+04   1e-04   0.9999
## fairness:b_dumbfounded              1.2229e+01  3.3482e+04   4e-04   0.9997
## fairness:c_nothing_wrong            2.8747e-01  5.0695e+04   0e+00   1.0000
## loyalty:b_dumbfounded              -2.6978e+01  3.2414e+04  -8e-04   0.9993
## loyalty:c_nothing_wrong            -1.1557e+01  6.1363e+04  -2e-04   0.9998
## authority:b_dumbfounded             7.0556e+00  5.3984e+04   1e-04   0.9999
## authority:c_nothing_wrong          -4.9376e+00  4.8381e+04  -1e-04   0.9999
## purity:b_dumbfounded                1.8648e+00  4.4833e+04   0e+00   1.0000
## purity:c_nothing_wrong              1.0569e+01  2.5906e+04   4e-04   0.9997
## AOT:b_dumbfounded                   2.1463e+01  3.0803e+04   7e-04   0.9994
## AOT:c_nothing_wrong                 1.0147e+01  6.6336e+04   2e-04   0.9999
## 
## Log-Likelihood: -2.4233e-07
## McFadden R^2:  1 
## Likelihood ratio test : chisq = 29.106 (p.value = 0.78555)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Incest

## 
##       a_reasons   b_dumbfounded c_nothing_wrong 
##              24               6               3

Politics and Religion

Political Ideology

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.727273        0.181818        0.090909 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 5.86E-07 
## gradient close to zero 
## 
## Coefficients :
##                                    Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded          -0.96050    0.80052 -1.1998  0.23020  
## (Intercept):c_nothing_wrong        -6.36606    2.79923 -2.2742  0.02295 *
## Political_Ideology:b_dumbfounded   -0.16514    0.27016 -0.6113  0.54102  
## Political_Ideology:c_nothing_wrong  0.97793    0.51590  1.8956  0.05801 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -21.513
## McFadden R^2:  0.14171 
## Likelihood ratio test : chisq = 7.1037 (p.value = 0.028671)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (PI)

RCOPE Positive

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71875         0.18750         0.09375 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 2.26E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.374116   1.174746 -1.1697   0.2421
## (Intercept):c_nothing_wrong -1.250993   1.720779 -0.7270   0.4672
## RE_P:b_dumbfounded           0.019992   0.710615  0.0281   0.9776
## RE_P:c_nothing_wrong        -0.554517   1.192163 -0.4651   0.6418
## 
## Log-Likelihood: -24.611
## McFadden R^2:  0.0052658 
## Likelihood ratio test : chisq = 0.26056 (p.value = 0.87785)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (RCOPE Positive)

RCOPE Negative

## 
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71875         0.18750         0.09375 
## 
## nr method
## 19 iterations, 0h:0m:0s 
## g'(-H)^-1g = 4.26E-07 
## gradient close to zero 
## 
## Coefficients :
##                                Estimate  Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded       0.57578     1.99966  0.2879   0.7734
## (Intercept):c_nothing_wrong   109.01100 17680.26626  0.0062   0.9951
## RE_N:b_dumbfounded             -1.53466     1.63948 -0.9361   0.3492
## RE_N:c_nothing_wrong         -110.07280 17680.26608 -0.0062   0.9950
## 
## Log-Likelihood: -21.65
## McFadden R^2:  0.12492 
## Likelihood ratio test : chisq = 6.1812 (p.value = 0.045475)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (RCOPE Negative)

Thinking

Need For Cognition

## 
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.71875         0.18750         0.09375 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 4.47E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)   
## (Intercept):b_dumbfounded   -1.25400    0.47702 -2.6288 0.008568 **
## (Intercept):c_nothing_wrong -2.95719    1.06911 -2.7660 0.005675 **
## NFC:b_dumbfounded           -0.27824    0.48256 -0.5766 0.564220   
## NFC:c_nothing_wrong          1.03301    0.71428  1.4462 0.148111   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -23.255
## McFadden R^2:  0.060048 
## Likelihood ratio test : chisq = 2.9713 (p.value = 0.22636)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (NFC)

AOT

## 
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.741935        0.161290        0.096774 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.19E-07 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -2.37682    2.75667 -0.8622   0.3886
## (Intercept):c_nothing_wrong -1.00902    3.38310 -0.2983   0.7655
## AOT:b_dumbfounded            0.39885    1.26000  0.3165   0.7516
## AOT:c_nothing_wrong         -0.49747    1.63207 -0.3048   0.7605
## 
## Log-Likelihood: -22.881
## McFadden R^2:  0.0049341 
## Likelihood ratio test : chisq = 0.22691 (p.value = 0.89274)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (AOT)

Dark Triad

Machiavellianism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.727273        0.181818        0.090909 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.24E-07 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -0.602955   1.199649 -0.5026   0.6152
## (Intercept):c_nothing_wrong -1.880665   1.533802 -1.2261   0.2201
## DT_M:b_dumbfounded          -0.216555   0.320801 -0.6750   0.4996
## DT_M:c_nothing_wrong        -0.052013   0.373496 -0.1393   0.8892
## 
## Log-Likelihood: -24.808
## McFadden R^2:  0.010256 
## Likelihood ratio test : chisq = 0.51413 (p.value = 0.77332)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Machiavellianism)

Narcissism

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##         0.75000         0.15625         0.09375 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.53E-07 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.272224   1.269355 -1.0023   0.3162
## (Intercept):c_nothing_wrong -1.455923   1.556941 -0.9351   0.3497
## DT_N:b_dumbfounded          -0.062784   0.252150 -0.2490   0.8034
## DT_N:c_nothing_wrong        -0.136049   0.326236 -0.4170   0.6767
## 
## Log-Likelihood: -23.177
## McFadden R^2:  0.0047137 
## Likelihood ratio test : chisq = 0.21954 (p.value = 0.89604)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Narcissism)

Psychopathy

## 
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.727273        0.181818        0.090909 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.000231 
## successive function values within tolerance limits 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded    0.167650   0.993987  0.1687  0.86606  
## (Intercept):c_nothing_wrong -1.941028   1.144971 -1.6953  0.09003 .
## DT_P:b_dumbfounded          -0.687284   0.463388 -1.4832  0.13803  
## DT_P:c_nothing_wrong        -0.046162   0.329744 -0.1400  0.88867  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -23.336
## McFadden R^2:  0.068973 
## Likelihood ratio test : chisq = 3.4576 (p.value = 0.1775)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Psychopathy)

Big Five

Extraversion

## 
## Call:
## mlogit(formula = InCS ~ 1 | Extraversion, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.727273        0.181818        0.090909 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.92E-07 
## gradient close to zero 
## 
## Coefficients :
##                               Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded    -2.056502   2.332268 -0.8818   0.3779
## (Intercept):c_nothing_wrong  -2.013620   3.270622 -0.6157   0.5381
## Extraversion:b_dumbfounded    0.228510   0.774083  0.2952   0.7678
## Extraversion:c_nothing_wrong -0.022757   1.111823 -0.0205   0.9837
## 
## Log-Likelihood: -25.02
## McFadden R^2:  0.0017804 
## Likelihood ratio test : chisq = 0.089251 (p.value = 0.95636)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Extraversion)

Openness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.727273        0.181818        0.090909 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 0.000113 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded     8.4408     4.1955  2.0119  0.04423 *
## (Intercept):c_nothing_wrong   1.3053     4.6245  0.2823  0.77775  
## Openness:b_dumbfounded       -4.0560     1.7828 -2.2750  0.02290 *
## Openness:c_nothing_wrong     -1.3107     1.8198 -0.7202  0.47138  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -21.123
## McFadden R^2:  0.15726 
## Likelihood ratio test : chisq = 7.8834 (p.value = 0.019415)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Openness)

Agreeableness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.727273        0.181818        0.090909 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 1.1E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                               Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded       4.8576     3.5575  1.3654   0.1721  
## (Intercept):c_nothing_wrong    -7.1562     5.2375 -1.3663   0.1718  
## Agreeableness:b_dumbfounded    -2.5538     1.4894 -1.7147   0.0864 .
## Agreeableness:c_nothing_wrong   1.8657     1.8528  1.0070   0.3139  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -22.442
## McFadden R^2:  0.10466 
## Likelihood ratio test : chisq = 5.2464 (p.value = 0.072569)
## $hosmer_and_lemeshow
## [1] -4.440892e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -4.440892e-16
## 
## $nagelkerke
## [1] -6.167755e-16

Plot (Agreeableness)

Conscientiousness

## 
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.727273        0.181818        0.090909 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 7.33E-08 
## gradient close to zero 
## 
## Coefficients :
##                                   Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded          -4.7568     3.1604 -1.5051   0.1323
## (Intercept):c_nothing_wrong         2.0495     3.2542  0.6298   0.5288
## Conscientiousness:b_dumbfounded     1.3390     1.2147  1.1024   0.2703
## Conscientiousness:c_nothing_wrong  -1.8291     1.4875 -1.2296   0.2188
## 
## Log-Likelihood: -23.422
## McFadden R^2:  0.065542 
## Likelihood ratio test : chisq = 3.2856 (p.value = 0.19343)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Conscientiousness)

Neuroticism

## 
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.727273        0.181818        0.090909 
## 
## nr method
## 4 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.02E-07 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -1.439833   2.179697 -0.6606   0.5089
## (Intercept):c_nothing_wrong -2.960436   2.901742 -1.0202   0.3076
## Neuroticism:b_dumbfounded    0.018919   0.752619  0.0251   0.9799
## Neuroticism:c_nothing_wrong  0.305439   0.968048  0.3155   0.7524
## 
## Log-Likelihood: -25.016
## McFadden R^2:  0.0019519 
## Likelihood ratio test : chisq = 0.09785 (p.value = 0.95225)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Neuroticism)

Moral Foundations

Harm/Care

## 
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.741935        0.193548        0.064516 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 4.04E-05 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded   -2.76056    2.93901 -0.9393   0.3476
## (Intercept):c_nothing_wrong -4.50947    4.87500 -0.9250   0.3550
## harm_care:b_dumbfounded      0.40904    0.82897  0.4934   0.6217
## harm_care:c_nothing_wrong    0.59194    1.35025  0.4384   0.6611
## 
## Log-Likelihood: -22.002
## McFadden R^2:  0.0089338 
## Likelihood ratio test : chisq = 0.39667 (p.value = 0.8201)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Harm/Care)

Fairness

## 
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.741935        0.193548        0.064516 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 9.97E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded    0.56065    2.93977  0.1907   0.8488
## (Intercept):c_nothing_wrong -1.68349    4.84861 -0.3472   0.7284
## fairness:b_dumbfounded      -0.48870    0.75484 -0.6474   0.5174
## fairness:c_nothing_wrong    -0.19205    1.22174 -0.1572   0.8751
## 
## Log-Likelihood: -21.988
## McFadden R^2:  0.009569 
## Likelihood ratio test : chisq = 0.42487 (p.value = 0.80861)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Fairness)

Loyalty

## 
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.741935        0.193548        0.064516 
## 
## nr method
## 8 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.09E-06 
## successive function values within tolerance limits 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded     3.5933     2.7636  1.3003  0.19351  
## (Intercept):c_nothing_wrong  13.4079     7.2573  1.8475  0.06467 .
## loyalty:b_dumbfounded        -1.9526     1.1540 -1.6920  0.09065 .
## loyalty:c_nothing_wrong      -7.4537     3.7625 -1.9811  0.04758 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -16.29
## McFadden R^2:  0.26622 
## Likelihood ratio test : chisq = 11.82 (p.value = 0.0027117)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Loyalty)

Authority

## 
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.741935        0.193548        0.064516 
## 
## nr method
## 5 iterations, 0h:0m:0s 
## g'(-H)^-1g = 3.73E-08 
## gradient close to zero 
## 
## Coefficients :
##                             Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded    3.06662    2.24938  1.3633  0.17278  
## (Intercept):c_nothing_wrong  1.12596    3.24906  0.3465  0.72893  
## authority:b_dumbfounded     -1.81394    0.96355 -1.8826  0.05976 .
## authority:c_nothing_wrong   -1.43008    1.37645 -1.0390  0.29882  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -19.464
## McFadden R^2:  0.12327 
## Likelihood ratio test : chisq = 5.4732 (p.value = 0.064789)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Authority)

Purity

## 
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.741935        0.193548        0.064516 
## 
## nr method
## 6 iterations, 0h:0m:0s 
## g'(-H)^-1g = 8.18E-07 
## gradient close to zero 
## 
## Coefficients :
##                              Estimate Std. Error z-value Pr(>|z|)  
## (Intercept):b_dumbfounded   -0.027763   1.544352 -0.0180  0.98566  
## (Intercept):c_nothing_wrong  2.895789   2.547406  1.1368  0.25564  
## purity:b_dumbfounded        -0.567429   0.663256 -0.8555  0.39226  
## purity:c_nothing_wrong      -2.918255   1.549727 -1.8831  0.05969 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Log-Likelihood: -19.307
## McFadden R^2:  0.13034 
## Likelihood ratio test : chisq = 5.787 (p.value = 0.055382)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16

Plot (Purity)

All Variables

## 
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P + 
##     RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion + 
##     Openness + Agreeableness + Conscientiousness + harm_care + 
##     +fairness + loyalty + authority + purity + AOT, data = df3a, 
##     method = "nr")
## 
## Frequencies of alternatives:choice
##       a_reasons   b_dumbfounded c_nothing_wrong 
##        0.766667        0.166667        0.066667 
## 
## nr method
## 18 iterations, 0h:0m:0s 
## g'(-H)^-1g = 9.53E-07 
## gradient close to zero 
## 
## Coefficients :
##                                       Estimate  Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded              90.6564 120319.7704  0.0008   0.9994
## (Intercept):c_nothing_wrong           -44.2430 178214.7930 -0.0002   0.9998
## Political_Ideology:b_dumbfounded        1.5636   3866.7680  0.0004   0.9997
## Political_Ideology:c_nothing_wrong      3.4295   6722.7104  0.0005   0.9996
## NFC:b_dumbfounded                      -6.4894   7960.1375 -0.0008   0.9993
## NFC:c_nothing_wrong                    -5.3170  13732.6930 -0.0004   0.9997
## RE_P:b_dumbfounded                      4.4363  10433.0274  0.0004   0.9997
## RE_P:c_nothing_wrong                   16.0252  27382.8626  0.0006   0.9995
## RE_N:b_dumbfounded                     22.5828  19266.9162  0.0012   0.9991
## RE_N:c_nothing_wrong                   -1.2174  38266.7732  0.0000   1.0000
## DT_M:b_dumbfounded                     -4.9695   6992.9412 -0.0007   0.9994
## DT_M:c_nothing_wrong                   -0.6819  10089.0259 -0.0001   0.9999
## DT_P:b_dumbfounded                    -14.9517   5219.7682 -0.0029   0.9977
## DT_P:c_nothing_wrong                   -3.0333   7527.6514 -0.0004   0.9997
## DT_N:b_dumbfounded                      2.4051   3651.9273  0.0007   0.9995
## DT_N:c_nothing_wrong                    2.1171   5353.2829  0.0004   0.9997
## Neuroticism:b_dumbfounded               9.4112  10995.2754  0.0009   0.9993
## Neuroticism:c_nothing_wrong             4.7714  13439.1892  0.0004   0.9997
## Extraversion:b_dumbfounded            -20.0601  11541.8213 -0.0017   0.9986
## Extraversion:c_nothing_wrong           -3.5266  22773.4065 -0.0002   0.9999
## Openness:b_dumbfounded                 -5.4969  29058.5592 -0.0002   0.9998
## Openness:c_nothing_wrong              -14.7211  32256.9220 -0.0005   0.9996
## Agreeableness:b_dumbfounded            37.8661  31664.8332  0.0012   0.9990
## Agreeableness:c_nothing_wrong          21.5681  27932.6146  0.0008   0.9994
## Conscientiousness:b_dumbfounded        -5.2155  20389.6479 -0.0003   0.9998
## Conscientiousness:c_nothing_wrong     -24.4832  45904.6300 -0.0005   0.9996
## harm_care:b_dumbfounded               -13.8665  14131.9236 -0.0010   0.9992
## harm_care:c_nothing_wrong               5.7688  15791.0058  0.0004   0.9997
## fairness:b_dumbfounded                 -9.1897  17005.9112 -0.0005   0.9996
## fairness:c_nothing_wrong               14.2033  22446.5203  0.0006   0.9995
## loyalty:b_dumbfounded                 -10.1946  10119.3831 -0.0010   0.9992
## loyalty:c_nothing_wrong               -13.8591  15366.0436 -0.0009   0.9993
## authority:b_dumbfounded               -46.1546  11577.0160 -0.0040   0.9968
## authority:c_nothing_wrong               1.2042  29896.1429  0.0000   1.0000
## purity:b_dumbfounded                  -12.2729   8513.1168 -0.0014   0.9988
## purity:c_nothing_wrong                -20.8725  31012.7268 -0.0007   0.9995
## AOT:b_dumbfounded                      56.7447  27077.2875  0.0021   0.9983
## AOT:c_nothing_wrong                    19.6214  44602.5362  0.0004   0.9996
## 
## Log-Likelihood: -3.5064e-07
## McFadden R^2:  1 
## Likelihood ratio test : chisq = 40.972 (p.value = 0.26148)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
## 
## $mcfadden
## [1] NA
## 
## $cox_and_snell
## [1] -2.220446e-16
## 
## $nagelkerke
## [1] -3.083878e-16